home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / S-Sh / SCB 4.0.cpt / Script Cat Burglar 4.0 / card_5223.txt < prev    next >
Text File  |  1988-03-21  |  2KB  |  69 lines
  1. -- card: 5223 from stack: in.0
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2227
  5. -- name: Lock/Unlock Fields
  6.  
  7.  
  8. -- part contents for background part 15
  9. ----- text -----
  10. This stack was designed by     Philip A. Mohr, Jr.    4405 N. Rosemead    Rosemead, CA 91770
  11.  
  12. -- part contents for background part 2
  13. ----- text -----
  14. Lock/Unlock Fields
  15.  
  16. -- part contents for background part 3
  17. ----- text -----
  18. Home Stack
  19.  
  20. -- part contents for background part 13
  21. ----- text -----
  22. Card/Stack
  23.  
  24. -- part contents for background part 58
  25. ----- text -----
  26. on mouseUp
  27.   if the optionKey is down then
  28.     get the name of the target
  29.     if it contains "field" then
  30.       if lockText of it then set the lockText of it to false
  31.     end if
  32.   else if the commandKey is down then
  33.     get the name of the target
  34.     if it contains "field" then
  35.       if lockText of it is false then
  36.         hide msg
  37.         set the lockText of it to true
  38.       end if
  39.     end if
  40.   else
  41.     pass mouseUp
  42.     exit mouseUp
  43.   end if
  44. end mouseUp
  45.  
  46.  
  47. -- part contents for background part 14
  48. ----- text -----
  49.  
  50. From a Jerry Daniels column in "Macazine"
  51.  
  52. Holding down the Command key and clicking in an unlocked field locks it.
  53. Holding down the Option key and clicking in a locked field unlocks it.
  54.  
  55. Restrictions:
  56.  The field can't have a go-away script.
  57.  The userLevel has to be set to "Scripting"
  58.  
  59. -- part contents for background part 67
  60. ----- text -----
  61. Hide Notes
  62.  
  63. -- part contents for background part 68
  64. ----- text -----
  65. 5223
  66.  
  67. -- part contents for background part 73
  68. ----- text -----
  69. Before I can do that, you   need to give the script   a name.  Sorry.  Try again.